'***************************************
' Rotary Encoder Ver 0.0.1
' JA4LAO Tuneo.ito
' 2006.10.18
' AT90S8535
'***************************************

Config Portd.5 = Input
Config Portd.6 = Input
Config Debounce = 3

Dim Bango As Long
Bango = 1000

Cls : Cursor Off
Locate 1 , 1 : Lcd Bango

Do
       Debounce Pind.5 , 0 , Updown , Sub
Loop

Updown:
If Pind.6 = 0 Then
       Incr Bango
Else
       Decr Bango
End If
Cls : Locate 1 , 1 : Lcd Bango
Return

End